home *** CD-ROM | disk | FTP | other *** search
/ OpenGL Superbible (2nd Edition) / OpenGL SuperBible e2.iso / tools / GLUT-3.7 / PROGS / ADA / ada_sphere.adb < prev    next >
Encoding:
Text File  |  1998-08-12  |  760 b   |  41 lines
  1.  
  2. with GL; use GL;
  3. with Interfaces.C.Strings;
  4. with Glut; use Glut;
  5. with ada_sphere_procs; use ada_sphere_procs;
  6.  
  7. procedure ada_sphere is
  8.   
  9.   package ICS renames Interfaces.C.Strings;
  10.  
  11.   type chars_ptr_ptr is access ICS.chars_ptr;
  12.  
  13.   argc : aliased integer;
  14.   pragma Import (C, argc, "gnat_argc");
  15.  
  16.   argv : chars_ptr_ptr;
  17.   pragma Import (C, argv, "gnat_argv");
  18.  
  19.   win : Integer;
  20.   m : Integer;
  21.  
  22. begin
  23.  
  24.   glutInit (argc'access, argv);
  25.  
  26.   glutInitDisplayMode(GLUT_RGB or GLUT_DEPTH or GLUT_DOUBLE);
  27.   win := glutCreateWindow("ada_sphere");
  28.  
  29.   glutDisplayFunc(display'access);
  30.   glutReshapeFunc(reshape'access);
  31.  
  32.   init;
  33.  
  34.   m := glutCreateMenu(menu'access);
  35.   glutAddMenuEntry("Quit", 666);
  36.   glutAttachMenu(GLUT_RIGHT_BUTTON);
  37.  
  38.   glutMainLoop;
  39.  
  40. end ada_sphere;
  41.